unit oWaypoint;

interface
  uses oLogicalEntity, XMLIntf, oSerializer, oPhysicalEntity, oPolygon, oEntityTypeConstants;

  type
    TWaypoint = class(TLogicalEntity)
      private
      public
        constructor Create; overload;
        procedure SaveToXML(var paNode : Ixmlnode); override;
        procedure LoadFromXML(paNode : IXMLNode); override;
        destructor Destroy; override;
    end;

implementation

{ TWaypoint }

constructor TWaypoint.Create;
begin
  inherited;
  aType := ET_WAYPOINT_TYPE;
end;

destructor TWaypoint.Destroy;
begin
  inherited;
end;

procedure TWaypoint.LoadFromXML(paNode: IXMLNode);
begin
  inherited LoadFromXML(paNode.ChildNodes['log_entity']);

end;

procedure TWaypoint.SaveToXML(var paNode: Ixmlnode);
var
  n : IXMLNode;
begin
  n := paNode.AddChild('waypoint');
  inherited SaveToXML(n);
end;

end.

